home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_300 / 304_01 / roff51.c < prev    next >
Text File  |  1990-02-12  |  12KB  |  396 lines
  1. /********************************************************/
  2. /*         ROFF5, Version 2.00            */
  3. /*    (c) 1983,4,8,9 by Ernest E. Bergmann        */
  4. /*    730 Seneca Street, Bethlehem, Pa. 18015        */
  5. /*                            */
  6. /* Permission is hereby granted for all commercial and    */
  7. /* non-commercial reproduction and distribution of this    */
  8. /* material provided this notice is included.        */
  9. /********************************************************/
  10. #include <roff5.h>
  11. #include <mem.h>
  12. #include <ctype.h>
  13. #if (VERSION!=2) || (subVERSION!=00)
  14. #error ***************This is version 2.00******************
  15. #endif
  16. /**********************************************************
  17. Advances LIN in LINE over white-space characters.
  18. "^t","^T" are considered tabs, hence white space.
  19. ***********************************************************/
  20. void skip_blanks ( )
  21. {while (*LIN==BLANK||*LIN==TAB||*LIN==NEWLINE
  22.     ||((*LIN=='^')&&(LIN[1]=='t'))
  23.     ||((*LIN=='^')&&(LIN[1]=='T'))
  24.     )
  25.     {if (*LIN=='^') LIN++;
  26.      LIN++;
  27.     }
  28. }
  29. /*************************************************************/
  30. CMD comtyp1(char *line)
  31. {char let1, let2;
  32. let1 = line[0] ;
  33. let2 = line[1] ;
  34.  
  35. if ( let1==COMMAND )    return( DOTDOT );
  36. if ( let1=='{' )    return( LEFT );
  37. if ( let1=='}' )    return( RIGHT );
  38. if ( let1=='i' && let2=='g')    return( IG );
  39. if ( let1=='f' && let2=='i')    return( FI );
  40. if ( let1=='f' && let2=='o')    return( FO );
  41. if ( let1=='t' && let2=='i')    return( TI );
  42. if ( let1=='b' && let2=='p')    return( BP );
  43. if ( let1=='b' && let2=='r')    return( BR );
  44. if ( let1=='c' && let2=='e')    return( CE );
  45. if ( let1=='h' && let2=='e')    return( HE );
  46. if ( let1=='l' && let2=='s')    return( LS );
  47. if ( let1=='n' && let2=='f')    return( NF );
  48. if ( let1=='p' && let2=='l')    return( PL );
  49. if ( let1=='s' && let2=='p')    return( SP );
  50. if ( let1=='s' && let2=='t')    return( ST );
  51. if ( let1=='n' && let2=='e')    return( NE );
  52. if ( let1=='f' && let2=='f')    return( FF );
  53. if ( let1=='s' && let2=='c')    return( SC );
  54. if ( let1=='o' && let2=='h')    return( OH );
  55. if ( let1=='o' && let2=='f')    return( OF );
  56. if ( let1=='e' && let2=='h')    return( EH );
  57. if ( let1=='e' && let2=='f')    return( EF );
  58. if ( let1=='a' && let2=='b')    return( AB );
  59. if ( let1=='t' && let2=='f')    return( TF );
  60. if ( let1=='c' && let2=='f')    return( CF );
  61. if ( let1=='i' && let2=='c')    return( IC );
  62. if ( let1=='o' && let2=='u')    return( OU );
  63. if ( let1=='a' && let2=='d')    return( AD );
  64. if ( let1=='n' && let2=='a')    return( NA );
  65. if ( let1=='f' && let2=='r')    return( FR );
  66. if ( let1=='d' && let2=='e')    return( DE );
  67. if ( let1=='a' && let2=='m')    return( AM );
  68. if ( let1=='d' && let2=='s')    return( DS );
  69. if ( let1=='n' && let2=='r')    return( NR );
  70. if ( let1=='d' && let2=='i')    return( DI );
  71. if ( let1=='d' && let2=='a')    return( DA );
  72. if ( let1=='s' && let2=='o')    return( SO );
  73. if ( let1=='o' && let2=='t')    return( OT );
  74. if ( let1=='t' && let2=='m')    return( TM );
  75. if ( let1=='b' && let2=='j')    return( BJ );
  76. if ( let1=='a' && let2=='f')    return( AF );
  77. if ( let1=='i' && let2=='f')    return( IF );
  78. if ( let1=='i' && let2=='e')    return( IE );
  79. if ( let1=='e' && let2=='l')    return( EL );
  80. if ( let1=='^' && let2=='z')    return( CZ );
  81. if ( let1=='r' && let2=='l')    return( RL );
  82. if ( let1=='e' && let2=='v')    return( EV );
  83. if ( let1=='r' && let2=='m')    return( RM );
  84. if ( let1=='r' && let2=='n')    return( RN );
  85. if ( let1=='p' && let2=='m')    return( PM );
  86. if ( let1=='p' && let2=='m')    return( PM );
  87. if ( let1=='m' && let2=='c')    return( MC );
  88. if ( let1=='n' && let2=='m')    return( NM );
  89. if ( let1=='n' && let2=='n')    return( NN );
  90. if ( let1=='p' && let2=='c')    return( PC );
  91. if ( let1=='l' && let2=='c')    return( LC );
  92. if ( let1=='t' && let2=='c')    return( TC );
  93. if ( let1=='p' && let2=='o')    return( PO );
  94. if ( let1=='w' && let2=='h')    return( WH );
  95. if ( let1=='c' && let2=='h')    return( CH );
  96. if ( let1=='i' && let2=='t')    return( IT );
  97. if ( let1=='e' && let2=='m')    return( EM );
  98. if ( let1=='d' && let2=='t')    return( DT );
  99. if ( let1=='t' && let2=='l')    return( TL );
  100. if ( let1=='g' && let2=='o')    return( GO );
  101.  
  102. if ( let1=='m')
  103.       { if (let2=='1')        return( M1 );
  104.     if (let2=='2')        return( M2 );
  105.     if (let2=='3')        return( M3 );
  106.     if (let2=='4')        return( M4 );
  107.       }
  108. return( UNKNOWN );        /* no match */
  109. }
  110. /*************************************************************
  111.  sets a global parameter like SPVAL, PAGESTOP, etc.
  112.  Also checks that the new value is within the range of that 
  113.  parameter.  Assigns the default for that parameter if no value
  114.   is specified.
  115. *************************************************************/
  116. void set ( int *param, int val, char arg_typ,
  117.         int defval, int minval, int maxval )
  118. {if(val==NO_VAL) *param = defval;    /* defaulted */
  119. else if(arg_typ == '+') *param += val;    /* relative + */
  120. else if(arg_typ == '-')    *param -= val;    /* relative - */
  121. else    *param = val;            /* absolute */
  122. *param = min (*param,maxval);
  123. *param = max (*param, minval);
  124. }
  125. /*************************************************************
  126.     end current filled line
  127. **************************************************************/
  128. void Brk()
  129. {int l;
  130. if (OUTPOS) put(OUTBUF);
  131. OUTW=OUTPOS=OUTTOP=OUTBOT=OUTWRDS = 0;
  132. OUTBUF[0] = '\0';
  133. }
  134.  
  135. /**************************************************/
  136. void initxu()    /*initialize underline,overstrike variables*/
  137. {    XCOL=UCOL=-1;
  138.     setmem(&XBUF,LSZ,' ');
  139.     setmem(&UBUF,LSZ,' ');
  140. }
  141. /****************************************/
  142. /*test for n line of space before footer*/
  143. /****************************************/
  144. void need(int n)
  145. {if(DIVERTING)
  146.     {if(((DLINES<(Dstats->dt)) && ((DLINES+n)>=(Dstats->dt))))
  147.         {Brk();
  148.          space((Dstats->dt)-DLINES);
  149.          return;
  150.         }
  151.     }
  152.  else if (( VLINENO>=(TRAPLOC-n) ) && (TRAPLOC>=VLINENO) )
  153.         {Brk();
  154.          space(HUGE);
  155.          NEWPAG= ++CURPAG;
  156.         }
  157. }
  158. /****************************************/
  159. int min(int i,int j) {return( (i<j)?i:j);}
  160.  
  161. int max(int i, int j) {return( (i>j)?i:j);}
  162. /*******************************************/
  163. /* process() parses args from LIN in LINE[]*/
  164. /* into entries of the arglist a for macro */
  165. /* processing by dolns(); returns # args.  */
  166. /*******************************************/
  167. int process(ARGs *a)
  168. {int i;
  169. char *pc, c;
  170. strcpy(a->tokens,LIN);
  171. pc=a->tokens;
  172. for(i=0;i<ARGLIM;i++)
  173.     {c=*pc;    /*skip whitespace*/
  174.      while((c==' ')||(c=='\t')||(c=='\n')) c=*(++pc);
  175.      if (c=='\0') a->arg[i]=NULL;
  176.      else if (c=='\"')    /*quoted string*/
  177.         {a->arg[i] = ++pc;
  178.          c=*pc;
  179.          while((c!='\0')&&(c!='\n')&&(c!='\"')) c=*(++pc);
  180.          if (c!='\0') *(pc++)='\0';    /*mark end*/
  181.         }
  182.      else    {a->arg[i]=pc;    /*simple token*/
  183.          while((c!='\0')&&(c!=' ')&&(c!='\t')&&(c!='\n'))
  184.             c = *(++pc);
  185.          if (c!='\0') *(pc++)='\0';    /*mark end*/
  186.         }
  187.     }
  188. for (i=1;(a->arg[i])&&(i<ARGLIM);i++);
  189. i--;
  190. a->dollar = i;
  191. return (i) ;
  192. }
  193. /************************************/
  194. /* pbmac() is more generalized than */
  195. /* pbstr() in that it will expand   */
  196. /* "$n" and "$" found in macro      */
  197. /* expansion string m from a        */
  198. /************************************/
  199. void pbmac(char *m, ARGs a)
  200. {int i;
  201. char c, c2;
  202. if ((i=strlen(m))==0) return;
  203. c = m[--i];
  204. if (c=='$') putback('0'+a.dollar);
  205. else putback(c);
  206. while (i>0)
  207.     {c=m[--i];
  208.      if (c=='$')
  209.         {c = BACKBUF[BINP--];
  210.          if ((c>'0')&&(c<='9')) pbstr(a.arg[c-'0']);
  211.          else    {putback(c); putback('0'+a.dollar);}
  212.         }
  213.      else putback(c);
  214.     }
  215. }
  216. /**************************************/
  217. #include "\turboc\include\setjmp.h"
  218. #define TOKSIZ LSZ
  219. jmp_buf jumper;
  220. char *xptr,*saveptr;
  221. /*****************************************************/
  222. /* get_val2() is more general than the old get_val() */
  223. /* in that it can do arithmetic and a greater range  */
  224. /* of typ (any nonwhite character); and it now       */
  225. /* indicates where on line it has finished parsing.  */
  226. /*****************************************************/
  227. int get_val2(char *line, char *typ, char **end)
  228. {char c; int val;
  229.  saveptr=xptr=line; c=*xptr;
  230.  while ((c!=' ')&&(c!='\t')&&(c!='\n')) c=*(++xptr); /*skip command*/
  231.  while ((c==' ')||(c=='\t')||(c=='\n')) c=*(++xptr); /*skip white*/
  232.  *typ=c;
  233.  if ((c=='+')||(c=='-')||(c=='!')) c=*(++xptr);
  234.  while ((c==' ')||(c=='\t')||(c=='\n')) c=*(++xptr)